home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGBLER
/
ASMCODE.LZH
/
CONTRACT.ASM
< prev
next >
Wrap
Assembly Source File
|
1984-07-21
|
695b
|
23 lines
;
PAGE,132
NAME CONTRACT_CODE
TITLE CONTRACT.ASM -- VOL ID = MSB-SCRATCH
;
;PROCEDURE TO SHRINK CURSOR TO NORMAL SIZE
;
CONTRACT_CODE SEGMENT PARA PUBLIC 'CODE'
PUBLIC CONTRACT
CONTRACT PROC FAR
ASSUME CS:CONTRACT_CODE
PUSH BP
MOV BP,SP
MOV AH,01
MOV CH,11 ;RESET CURSOR SIZE TO 11/12
MOV CL,12 ;END SCAN LINE AT 12
INT 10H ;BIOS FOR CURSOR MANAGE SERVICE
POP BP
RET
CONTRACT ENDP
CONTRACT_CODE ENDS
END ;ASSEMBLY